* lisp/vcursor.el (vcursor-get-char-count): Preserve point

Copyright-paperwork-exempt: yes

diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index e219dc2d1a5a1765c53b7a90cd0f3761bfcabac9..df65db39e38db7adc2a23be8d805e1d5a32b09c1 100644 (file)
--- a/lisp/vcursor.el
+++ b/lisp/vcursor.el
@@ -788,9 +788,9 @@ out how much to copy."
 
   (vcursor-check)
   (with-current-buffer (overlay-buffer vcursor-overlay)
-    (let ((start (goto-char (overlay-start vcursor-overlay))))
-      (- (progn (apply func args) (point)) start)))
-  )
+    (save-excursion
+      (let ((start (goto-char (overlay-start vcursor-overlay))))
+        (- (progn (apply func args) (point)) start)))))
 
 ;; Make sure the virtual cursor is active.  Unless arg is non-nil,
 ;; report an error if it is not.